home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 February
/
Ahoy_Magazine_88-02_1988_Double_L.d64
/
Crypt of Fear
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
15KB
|
357 lines
10 poke53280,.:poke53281,.:goto860
20 hr=fnh(.):pokefnpm(10),k:pokefnsm(10),hr:return
30 m=int(rnd(f)*29):pokes+f,h(m):pokes,l(m):pokes+g,h(m+h):pokes+7,l(m+h)
40 pokes+15,h(m+h+g):pokes+14,l(m+h+g):return
50 rem wallhandler
60 vl=fc:onfc+fgosub500,500,520,550,570
70 return
80 print"[147][146] [205][164][210][198][195][196][197][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][197][196][195][198][210][175][164][206]"
90 print" [167]"spc(28)"[165]"
100 print" Y [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] T"
110 print" [200] [194][205][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206][194] [199]"
120 print" B GB[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]HH B"
130 print" G TTM[164]RFCDEEEEEEDCFR[164]NYY H"
140 print" T [165][165]Y [164][164][164][164][164][164][164][164][164][164][164][164] [167] [167][167] Y"
150 print" [165] [167][167] [200] [194][205][164][164][164][164][164][164][164][164][206][194] [165] [165][165] [167]"
160 print" [167] [217][217] [194] [199][194][205][164][210][198][198][210][164][206][194][200] [212] [212][212] [165]"
170 print" Y HH G TT[167] [164][164][164][164] [165]YY G GG T"
180 print" [200] [194][194] [212] [165][165][217][217][196][196][196][196][212][212][167][167] [194] [194][194] [199]"
190 print" B GG [165] [167][167] HH[172][162][162][187]GG [165][165] H HH B"
200 print" G TT[167] YY BB[161][146] [161]BB TT Y YY H"
210 print" T [165][165]Y HH GG[180][146] [170][146]HH GG [167] [167][167] Y"
220 print" [165] [167][167] [200] [194][194] [212][212][167][146][164][164][165][146][217][217] [194][194] [165] [165][165] [167]"
230 print" [167] [217][217] [194] [199][199] [204][165][210][210][210][210][167][186] [200][200] [212] [212][212] [165]"
240 print" Y HH G TTN[163][163][163][163][163][163][163][163]MYY G GG T"
250 print" [200][160] [194][194] [212] [165][165]"spc(10)"[167][167] [194] [194][194] [199]"
260 print" [194] [199][199] [165] [167][206][163][163][163][163][163][163][163][163][163][163][163][163][205][165] [200] [200][200] [194]"
270 print" G TTN[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]MYY H"
280 print" [212] [165][165]"spc(22)"[167][167] [217]"
290 print" [204][175][175][186][206][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205][204][175][175][186]"
300 print" [206] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [205]":print" [206]"spc(36)"[205]"
310 print"[151] ";d$(cd);" # $ % & ) ( ' * + g [211] ";d$(cd);" [146]";l$(dd);
320 return
330 rem 1st left block
340 print"[183][183][183][183][183][208]":print"[175][175][175]":return
350 rem 2nd left block
360 print"";tab(10)"[207][208]":print""tab(9)"[175]":return
370 rem 3rd left block
380 print"";tab(15)"[207][208]":print""tab(15)"[164]":return
390 rem 4th left block
400 print"";tab(18)"[177]":print""tab(17)"[204]":return
410 rem 1st right block
420 print""tab(34)"[207][183][183][183][183]":print""tab(37)"[175][175]":return
430 rem 2nd right block
440 print"";tab(28)"[183][208]":print""tab(30)"[175]":return
450 rem 3rd right block
460 print"";tab(23)"[207][208]":print""tab(24)"[164]":return
470 rem 4th right block
480 print"";tab(21)"[178]":print""tab(22)"[186]":return
490 rem 1st wall
500 print"";:forx=.to19:printtab(6)left$(l$,28):next:return
510 rem 2nd wall
520 print"";:forx=.to12:printchr$(13)tab(12)left$(l$,15);:next
530 print"[146] ":return
540 rem 3rd wall
550 print"";:forx=.to6:printtab(17);left$(l$,6):next:return
560 rem 4th wall
570 print"";:printtab(18)"[172][195][195][187]"
580 forx=.tof:printtab(18)"[212] [217]":next:printtab(18)"[204][164][164][186]":return
590 rem look routine
600 cem=fnte(.):pokeed,cem:printl$(dd);:gosub80
610 fc=h:vl=fc:lv=cd-f+h*-(cd=f):rv=cd+f+h*(cd=h)
620 ebm=fncp(.):ifebm>-fandebm<256then650
630 iffcthenfc=fc-f:goto620
640 return
650 el=fncp(lv):er=fncp(rv)
660 if(dl(ebm,.))then680
670 gosub60:fc=fc-f:onf-(fc<.)goto620,740
680 ifdl(el,.)andfc<hthenonfc+fgosub340,360,380,400
690 ifdl(er,.)andfc<hthenonfc+fgosub420,440,460,480
700 fc=fc-f:iffc>-fthen620
710 ifdl(cl,k)=.then740
720 forx=.tog:pokepl,21:print:if(dl(cl,k)andbo(x))thenprinttab(x*h+3);oa$(x)
730 next
740 gosub780:ifcl=wlandcd=hthenpokepl,7:print:printtab(18)"[205][206][157][157][206][205]"
750 pokefnpm(u),15
760 csm=fnsw(.):pokev+24,(peek(v+24)and15)orcsm:return
770 rem monster display
780 iffcandvlthenvl=vl-f
790 d=54:pokefnmp(f),d:pokefnmp(k),d:pokefnmp(3),d:pokefnmp(5),d
800 el=.:forx=vlto.step-f:fc=fncm(x):ifdl(fc,f)=.then840
810 fc=dl(fc,f)-f:el=(elorsp(x+h))
820 mb=sp(x)-f:ford=ftolen(sb$(x,fc)):pokefnmp(mb+d),asc(mid$(sb$(x,fc),d,f))
830 pokebc+sp(x)+d,cs(fc):next
840 next:pokev+21,el:return
850 rem set up vic
860 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)
870 poke53272,peek(53272)and15:poke648,192:poke53272,(peek(53272)and240)or12
880 poke53270,(peek(53270)and231)
890 print"[147][151]":gosub1950:x=51520:gosub900:goto930
900 reada$:ifa$="x"thenpoke53280,.:return
910 fora=1tolen(a$)step2:d=asc(mid$(a$,a,1))-48:fc=asc(mid$(a$,a+1,1))-48
920 d=d+(d>10)*7:fc=fc+(fc>10)*7:pokex,d*16+fc:poke53280,a:x=x+1:next:goto900
930 forx=.to63:poke52608+x,.:next
940 dimdl(255,2),bo(16),sp(7),sb$(3,7),d$(4),l$(6),oa$(8),cs(7),m(15)
950 dimhc(2),mh(15),m$(1),n$(2),g$(2),h(40),l(40)
960 jp=56320:hr=83:x=.:d=.:fc=.:cl=17:cd=2:vl=.:el=.:er=.:vs=.
970 d(1)=1:d(2)=16:d(3)=-1:d(4)=-16:p=.:l=1:lf=10:forx=.to7:readsp(x):next
980 tgl=16:csm=.:cem=192:v=53248:forx=.to39
990 l$=l$+chr$(32):next:forx=1to4:d$(x)=mid$("eswn",x,1):next
1000 j=.:f=1:h=4:g=8:k=2:i=.02:r=.95:m=.:u=.:tl=388:dd=6:pl=214:ed=648:s=54272
1010 ri=.92:bc=v+38:y=25:fl=550:all=479:wl=17:cr$=chr$(13)
1020 deffnjs(x)=15-(peek(jp)and15):deffnjf(x)=((peek(jp)and16)=.)
1030 deffncp(x)=fc*d(cd)+(cl+d(x)):deffnsw(x)=(tgl-csm)
1040 deffnte(x)=(tl-cem):deffncm(x)=x*d(cd)+cl:deffnmp(x)=cem*256+1016+x
1050 deffnpm(x)=55296+970+(x*2):deffnsm(x)=cem*256+970+(x*2):deffnh(x)=294-hr
1060 deffnlf(lf)=((lf<5)*-k+(lf>=5andlf<10)*-7+(lf>=10)*-5)
1070 cem=fnte(.):printchr$(147):pokeed,cem:gosub2010:gosub760
1080 forx=.to16:bo(x)=2^x:next:forx=1to7:l$(x-1)=mid$("[159][154][156][151][144]",x,1):next
1090 hc(.)=2:hc(1)=8:hc(2)=10:m$(.)=" ":m$(1)="[146] "
1100 n$(1)="[158]gold":n$(2)="life"
1110 forx=.to7:readcs(x):next:a$="":forx=1to4:readb$:a$=a$+b$:next:forx=1to223
1120 dl(x+15,.)=val(mid$(a$,x,1)):next
1130 forx=.to8:reada$:oa$(x)=a$:nextx
1140 forx=.to15:reada:m(x)=a:nextx
1150 forx=3to.step-1:ford=.to7:reada$:sb$(x,d)=a$:nextd,x
1160 forx=.to18:w1$=w1$+"[177][178]":w2$=w2$+"[178][177]":next
1170 forx=.to40:m=2703*(2^((x-20)/12)):ifm>65535thenm=65535
1180 h(x)=int(m/bo(8)):l(x)=m-h(x)*bo(8):next:forx=.to15
1190 a=int(rnd(f)*223+16):ifdl(a,.)=.or(x=14anda<224)then1190
1200 dl(a,f)=m(x):m(x)=a:mh(x)=x*g+f:next:dl(238,2)=bo(7)
1210 pokev+21,.:pokev+23,127:pokev+29,63:x=v:gosub900:gosub2670
1220 print"[155] $$$$ press fire button to begin $$$$ ":waitjp,16,16
1230 gosub2260:gosub2490:gosub1240:gosub2430:goto1270
1240 pokeed,fnte(.):print"[147][146]";:pokev+32,.:forx=.to255step16:printtab(4);
1250 forjy=.to15:printm$(dl(x+jy,.));:ifcl=x+jythenprint"[157][157]()";
1260 nextjy:print:nextx:gosub760:pokeed,cem:pokev+21,.:return
1270 print"[147]":gosub760:pokev+32,5:gosub2700:gosub600:x=fre(.):it=ti+1000
1280 jy=fnjs(.):j=fnjf(.):ifj=.thenonjygoto1360,1370,,1390,70,70,,1380,70,70
1290 gosub20:lf=lf+i:pokev+32,fnlf(lf):on-(rnd(f)>.9)gosub30
1300 b=dl(cl,f):ifbandrnd(f)+b/100>rithengosub1630
1310 ifjandjy=kthengosub1450:gosub2700
1320 ifjthenonu+fgosub1730,1750,70,1840,70,1870,1890
1330 ifti>itthengosub2330
1340 on-(vs=.)goto1280:y=y-f:on-(y>.)goto1280:y=fl:dd=dd+f:on-(dd<6)goto1280
1350 print"[147][151] your lantern fuel has expired! ":gosub2450:goto1690
1360 on-(dl(cl+d(cd),.)=.)goto1410:cl=cl+d(cd):goto1430
1370 on-(dl(cl-d(cd),.)=.)goto1410:cl=cl-d(cd):goto1430
1380 cd=cd+f:goto1400
1390 cd=cd-f
1400 cd=cd+((cd=5)*h)+((cd=.)*-h):goto1430
1410 ifcl<>wlthengosub2670:gosub2700:goto1290
1420 ifl=allanddl(cl,f)=7then1920
1430 gosub600:goto1290
1440 rem command bar
1450 gosub2670:forx=.tog:if(landbo(x))thenpokefnpm(x),12
1460 next:x=.:a=fre(.):a=.:if(land(bo(u)))thenpokefnpm(u),15
1470 poke198,.:waitjp,16,.
1480 pokefnpm(x),.:pokefnpm(x),f:if(landbo(a))thenpokefnpm(a),12:goto1500
1490 pokefnpm(a),11
1500 gosub20:jy=fnjs(.):on-(rnd(f)>.9)gosub30
1510 p=l:ifjy=gthena=x:x=x+f+(x=10)*11
1520 ifjy=hthena=x:x=x-f+(x=.)*-11
1530 iffnjf(.)and(landbo(x))thenpokefnpm(u),12:u=x:pokefnpm(x),15:gosub2660
1540 iffnjf(.)thenreturn
1550 ifjy=fand(dl(cl,k)andbo(x))thenl=(lorbo(x)):dl(cl,k)=dl(cl,k)-bo(x)
1560 ifjy<>kthen1580
1570 if(landbo(x))andx>.thenl=(land(511-bo(x))):dl(cl,k)=dl(cl,k)orbo(x):u=.
1580 ifl<>pthengosub2670:gosub600:goto1450
1590 on-(x<=g)goto1480:gosub1600:goto1480
1600 g(k)=int(lf):print"";tab(15)n$(x-g);": [155]";:a$=str$(g(x-g))
1610 printright$("0000"+(right$(a$,len(a$)-f)),h):return
1620 rem monster hits
1630 on-(b=7)goto70:d=int(rnd(f)*3+f):pokev+33,hc(d-f):lf=lf-(b/((landh)+f))-d
1640 fort=.to99:next:pokev+33,.:iflf<.then1670
1650 pokev+32,fnlf(lf):gosub2730:gosub2700:return
1660 rem player killed
1670 print"[147]":forx=.to16:pokev+32,x:pokev+33,x:next:gosub2450:print"[151]"
1680 printtab(11)" s [158] l [150] a [129] i [158] n !!"
1690 gosub2490:print"do you wish to enter the crypt again? "
1700 poke198,.:wait198,1:geta$:ifa$="n"thenpokeed,4:poke679,.:sys679
1710 pokev+21,.:printchr$(142):run
1720 rem lantern
1730 ifvs=.thenvs=f:dd=.:gosub600:return
1740 rem sword
1750 ifb=.orb=7orrnd(.)+lf/100<.5thengosub2730:gosub2700:return
1760 pokev+33,5:fort=.to100:next:pokev+33,.:forx=.to15
1770 onf-(m(x)=.)goto1780,1810
1780 ifcl=m(x)thenmh(x)=mh(x)-abs(rnd(.)+((land2)*f)+lf/6)+(land18>.)*-2
1790 on-(mh(x)>.)goto1810:ford=.to16:fort=.to3:pokev+39+t,d:nextt,d
1800 m(x)=.:dl(cl,f)=.:pokev+21,peek(v+21)and240:gosub2450:gosub1820
1810 next:gosub2730:gosub2700:return
1820 lf=lf+b:dl(cl,k)=(dl(cl,k)orbo(b)):gosub600:gosub2670:g(f)=g(f)+b*100
1830 return
1840 rem wand
1850 on-(b=g)goto1760:return
1860 rem elixir
1870 lf=lf+20:l=l-bo(u):pokefnpm(u),11:u=.:return
1880 rem map
1890 a=peek(v+21):gosub2760:gosub1240:gosub2430:gosub2670
1900 gosub760:pokev+21,a:pokev+32,fnlf(lf):gosub2700:return
1910 rem victory!!
1920 print"[147][158]";l$;"[150] brave knight,you have conquered crypt![158]";l$
1930 x=9:gosub1600:pokepl,11:print:printtab(23)"my hero![157][157][157][157][157][157][157][157][157][206]":goto1690
1940 rem copy char set
1950 poke56333,127:poke1,51
1960 poke781,9:poke782,1:poke90,.:poke91,216:poke88,.:poke89,248:sys41964
1970 poke1,55:poke56333,129:print"[147]";:gosub2280
1980 reada:ifa=-1thenreturn
1990 forx=.to7:readd:poke61440+a*8+x,d:next:goto1980
2000 rem opening marquee
2010 printchr$(8)chr$(142):print"[147][146]"spc(8)"[213][195][195][195][201][213][195][195][201] [213][201] [213][201][213][195][195][201][213][195][195][195][201]"
2020 print"[155][169][223][146]"spc(4)"[194][213][195][201][194][194][213][201][194] [194][202][195][203][194][194][213][201][194][202][201] [213][203] [155][169][223]"
2030 print"[167] [146]"spc(4)"[194][194] [202][203][194][202][203][194] [202][201] [213][203][194][202][203][194] [194] [194] [155][167] "
2040 print"[167] [146]"spc(4)"[194][194] [194][213][201][202][201] [194] [194] [194][213][195][203] [194] [194] [155][167] "
2050 print"[167] [146]"spc(4)"[194][194] [213][201][194][194][202][201][194] [194] [194] [194][194] [194] [194] [155][167] "
2060 print"[167] [146]"spc(4)"[194][202][195][203][194][194][194] [194][194] [194] [194] [194][194] [194] [194] [155][167] "
2070 print"[167] [146]"spc(4)"[202][195][195][195][203][202][203] [202][203] [202][195][203] [202][203] [202][195][203] [155][167] "
2080 print"[167] [146] [152][213][195][195][201]"spc(24)"[155][167] "
2090 print"[167] [146] [151][190][164][164][164][164][188][146] [154][213][195][195][201][213][195][195][201] [149][209][198][198][198][198][198][198][146][209] [155][167] "
2100 print" [167] [146] [151][182][153]M[164][164]N[151][146][181] [154]BUIBBUCK [158][161]\{$7e}\{$7e}[182][146] [155][167] "
2110 print" [167] [146] [151][182][153][167]MN[165][151][146][181] [154]BBBBBJI [158][161]{$7e}\{$7e}\[182][146] [155][167] "
2120 print" [167] [146] [151][182][153][167]NM[165][151][146][181] [154]BBBBBUK [158][161]\{$7e}\{$7e}[182][146] [155][167] "
2130 print" [167] [146] [151][182][153]N[163][163]M[151][146][181] [154]BJKBBB [158][161]{$7e}\{$7e}\[182][146] [155][167][160]"
2140 print" [167] [146] [151][190][163][163][163][163][188][146] [154]JCCKJK [158][161]\{$7e}\{$7e}[182][146] [155][167] "
2150 print" [167] [146] [151][190][163][163][163][163][188][146]"spc(14)"[149][209][198][198][198][198][198][198][146][209] [155][167] "
2160 print" [167] [146]"spc(6)"[129][213][195][195][195][201][213][195][195][201] [213][195][195][201] [213][195][195][201]"spc(6)"[155][167] "
2170 print" [167] [146]"spc(6)"[129][194][213][195][195][203][194][213][195][203] [194][213][201][194] [194][213][201][194]"spc(6)"[155][167] "
2180 print"[213][195][203][202][195][201] [129][194][202][201] [194][202][201] [194][202][203][194] [194][202][203][194] [213][195][203][202][195][201]"
2190 print" [151][163][187][172][146][163] [129][194][213][203] [194][213][203] [194][213][201][194] [194][213][201][202][201] [151][163][187][172][146][163]"
2200 print" [149][190][188][146]"spc(6)"[129][194][194] [194][194] [194][194][194][194] [194][194][202][201][194] [149][190][188]"
2210 print" [168][168][146]"spc(6)"[129][194][194] [194][202][195][201] [194][194][194][194] [194][194] [194][194] [149][168][168]"
2220 print" [168][168][146]"spc(6)"[129][202][203] [202][195][195][203] [202][203][202][203] [202][203] [202][203] [149][168][168][175][175]"spc(31)"[175][175]"
2230 print" a [155][146]3d[149] [155][146]a[149]dventure [155][146]g[149]ame [155][146]b[149]y [155][146]c[149]leve [155][146]b[149]lakemore ";
2240 print"[152] ---- please wait..opening dunjons!----[145]";:return
2250 rem logo
2260 print"[147]";:forx=.to11:print"";w1$:print"";w2$:next:pokepl,8:print
2270 forx=.to13:printtab(14)left$(l$,13):next:printtab(14)left$(l$,13);
2280 print""tab(7)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
2290 [153][163]7)"-===crypt of fear==v8.1===wait<
2300 printtab(7)"[171]by cleveland m. blakemore[146][179]
2310 [153][163]7)"mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)":[142]
2320 [143] monster movement
2330 fc[178]15:[129]x[178].[164]fc:[145]f[171](m(x)[178].)[137]2340,2400
2340 [139]cl[179]m(x)[171]g[167]a[178]m(x)[170]d(h)
2350 [139]cl[177]m(x)[170]g[167]a[178]m(x)[170]d(k)
2360 [139]cl[177]m(x)[175]cl[179]m(x)[170]g[167]a[178]m(x)[170]d(f)
2370 [139]cl[179]m(x)[175]cl[177]m(x)[171]g[167]a[178]m(x)[170]d(f[170]k)
2380 [139]a[179].[176]a[177]255[167]2400
2390 [139]dl(a,.)[175]dl(a,f)[178].[167]dl(a,f)[178]dl(m(x),f):dl(m(x),f)[178].:m(x)[178]a
2400 [130]
2410 d[178]dl(cl,f):[139]d[167][145]d[141]70,2580,2610,2540,70,70,70,2640:[141]2700
2420 [151]v[170]21,.:fc[178].:[141]780:it[178]ti[170]1000:[142]
2430 [129]t[178].[164]3000:[130]:[142]
2440 [143] something died
2450 [151]s[170]5,15:[151]s[170]23,239:[151]s[170]24,15[170]32:[151]s[170]4,33
2460 a[178]200:[129]sw[178]100[164]50[169][171].5:[151]s[170]22,sw:a[178]a[172].93:[151]s[170]1,a:[130]
2470 [151]s[170]4,32:[129]t[178].[164]30:[130]:[151]s[170]23,.:[151]s[170]24,.:[142]
2480 [143] crypt whispers
2490 [141]2760:[151]s[170]5,16[172]11:[151]s[170]6,16[172]15[170]11:[151]s[170]23,239:[151]s[170]24,15[170]32
2500 [129]n[178].[164]5:[151]s[170]1,[181]([187](1)[172]10)[170]1:[129]sw[178].[164][181]([187](1)[172]200):[151]s[170]4,129
2510 [151]s[170]22,sw:[130]:[151]s[170]4,128:[129]t[178].[164]400:[130]t,n
2520 [129]t[178].[164]1500:[130]:[151]s[170]23,.:[151]s[170]24,15:[142]
2530 [143] blob
2540 [151]s[170]5,15:[151]s[170]23,239:[151]s[170]24,15[170]32:[151]s[170]4,33
2550 [129]sw[178].[164]150[169]5.25:[151]s[170]22,sw:[151]s[170]1,[181]([187](1)[172]10):[130]
2560 [151]s[170]4,32:[129]t[178].[164]400:[130]:[151]s[170]23,.:[151]s[170]24,15:[142]
2570 [143] cobra
2580 [141]2760:[151]s[170]5,155:[151]s[170]6,245:[151]s[170]4,129:[129]x[178]50[164]55:[151]s,d
2590 [129]t[178]35[164]55:[151]s[170]1,t:[130]t,x:[151]s[170]4,128:[129]t[178].[164]100:[130]:[142]
2600 [143] imp
2610 [141]2760:d[178]180:[129]a[178].[164]9:[151]s[170]4,33:[151]s[170]1,d:[129]t[178].[164]5
2620 [130]:[151]s[170]4,32:[129]t[178].[164]40:[130]:d[178]d[172].95:[130]a:[142]
2630 [143] demigorgon
2640 [141]2760:[151]s[170]5,8:[151]s[170]6,255:[151]s[170]4,23:f1[178]8:f2[178]4:[129]z[178]1[164]30:[151]s[170]1,f1
2650 [151]s[170]15,f2:f2[178]f2[172]1.01:f1[178]f1[170]1:[130]z:[151]s[170]6,15:[142]
2660 [143] beep
2670 [141]2760:[151]s[170]5,96:[151]s[170]6,96:[151]s[170]4,23:[151]s[170]2,85:[151]s[170]1,36
2680 [129]x[178].[164]10:[130]:[151]s[170]6,15:[142]
2690 [143] sinister music
2700 [141]2760:[151]s[170]5,4:[151]s[170]12,4:[151]s[170]19,4:[151]s[170]6,241:[151]s[170]13,241
2710 [151]s[170]20,241:[151]s[170]4,33:[151]s[170]11,33:[151]s[170]19,33:[141]30:[142]
2720 [143] slash
2730 [141]2760:[151]s[170]1,25:[151]s,5:[151]s[170]5,20:[151]s[170]4,129
2740 [129]t[178].[164]75:[130]:[151]s[170]4,128:[142]
2750 [143] clear sid
2760 [129]p[178]s[164]s[170]24:[151]p,.:[130]:[151]s[170]24,15:[142]
2770 [143] character data
2780 [131]159,231,231,231,231,129,195,231,255
2790 [131]65,,62,107,85,34,20,8,.
2800 [131]77,128,64,32,16,8,4,2,1
2810 [131]78,1,2,4,8,16,32,64,128
2820 [131]113,,,,,255,15,15,15
2830 [131]114,,,,,255,240,240,240
2840 [131]163,231,129,219,195,219,129,195,129
2850 [131]164,247,247,247,247,247,227,247,247
2860 [131]165,189,129,137,189,165,129,195,231
2870 [131]166,231,219,231,231,231,231,231,231
2880 [131]167,60,90,102,118,118,118,181,195
2890 [131]168,231,195,231,195,129,126,129,195
2900 [131]169,255,255,231,219,219,231,255,255
2910 [131]170,255,193,148,170,221,235,247,255
2920 [131]171,255,129,129,129,195,231,231,129
2930 [131]212,189,189,189,189,189,189,189,189
2940 [131]40,1,1,7,11,9,3,4,12
2950 [131]41,128,128,224,208,144,192,32,48
2960 [131]201,255,223,207,199,195,193,225,255
2970 [131]83,255,201,193,193,227,247,255,255
2980 [131]213,255,251,243,227,195,131,135,255,-1
2990 [143] monster sprite data
3000 [131] 000000000000000000000000021840253ca454ff2a8dffb197ffe19bffd1ffffffdb
3010 [131] ffd3d8ff13481812483c12447e22407e02203c040042000000000000000000000000
3020 [131] 000000000000f80001fc0002aa000272000202000104000088000070200070400070
3030 [131] 40007060007830003c1c001e0e003c3c0078f0003fe0001fc0000400400c7c6012ba
3040 [131] 9011931009ff2007bbc001c7001f7de03f83f0f3ff7ca17a1ec0fc05c3fe03c7cf03
3050 [131] ce0383ce01c6f701eee387fcd1e65c68676a13e0100400000c70cc1289ee31c1ff64
3060 [131] 63f1c23264c6642a6cccaa66dc24e37e71e33fffe63ebafc3c827a1800318c447987
3070 [131] 45ebcffffe7bf7de3fbffe6dedb7ffffff04003c00007e020042020066020066023d
3080 [131] bd8267bdc277ffe243dbe25aff777e663f7e5a1e3cff00017e8003ffc00781e00f00
3090 [131] f00e00700e00700e00703e007c1e03ffc005ffa00eff701f7ef81ffff81ffff83fc3
3100 [131] fc3f00fc3e007c3c003c3c003c3c003c3c003c3c003c3c003c3c003cfc003ffc003f
3110 [131] 000000000000000000ff000000007e0000ff0000810000810200e70200e70200e702
3120 [131] 737ec2ff7ee28d7ee2cf7ef285fff2b7bdfab5bdfab7fffafde7fafde7bafc993ff8
3130 [131] ff1f71ff8fff005400007c00004400007c0000fe00017d0003bb8007c7c00fefe00d
3140 [131] ff6018ee301c7c7010ee1001ff0001ef0000fe00006c0000fe0000ee0001ff0003ef
3150 [131] 80ff38770e20ff8221f7c203ffe003f7e003ffe003f7e003ffe001f7c000ff8000f7
3160 [131] 8000ff8000f78000ff8001f7c001ffc003f7e003ffe007f7f00ffff81ff7fc040000
3170 [131] 00000000000000000000004900005d00007f00005500006300007f0000be80015d60
3180 [131] 07a2f80fddfc1fe3fc1dffdc1df7dc19ffcc38f78e387f0e307706041c0070220088
3190 [131] 216d0820c60824fe482abaa8309218236dc807a9e00dbae00cc2600e7dc007fa8001
3200 [131] ba8000ed4000c60001830001818000818000420001c38000e3ffdee1f586c1faffba
3210 [131] f5877f750105ba8004bf00097fc000e0e001c0600380e00300c00380c00181800183
3220 [131] 0001830001838003c1800301e00781f01a425c0060001c90001288002188002184c6
3230 [131] 418383818383a185c3a185ffd1897ea9953cc953998a22ff440ceb301f6b787fbef8
3240 [131] 77ddf8e5e3b8c2ff5cc318cee1ff8e000fe07c0fc07c0f807c0f807c1f00381e0038
3250 [131] 1f007c1f00f83f00f03e01e03e01e01e01e01e03c00e03c00e478007878003878003
3260 [131] 87000787800ac760148a90fc7fbf7efbc0effbf7effbf7effdffeff60c1ff7ffeff3
3270 [131] fc6ff27bafe3b7e7efd737ffa53f78b49f715ae32139e001ffe003ffe003fff003ff
3280 [131] f007e1f807c0f8fc0780000860001830303010e06019c0c00dc08007c08023ef8021
3290 [131] ff8020ff8040bf80419f80638f8053c3806bff8097ff811bff8615ff443fbd283fdd
3300 [131] 101feffc0001e00006100c0c1807080c03980603b00303e001f7c401ff8401ff0401
3310 [131]fd0201f98201f1c601c3ca01ffd601ffe901ffd881ffa861bdfc22bbfc14f7f808fc,x
3320 [143] bit masks
3330 [131] 0,4,6,7,15,48,64,128
3340 [143] monster colors
3350 [131]0,5,2,6,15,1,7,5
3360 [143] dungeon map
3370 [131]"010111010101111001110101011100100101111111010010010"
3380 [131]"100000101111001111111110010100101010100101010011110"
3390 [131]"01111111100101010101001010000011100110000001010011001111100"
3400 [131]"111111010010010001000011111111001111110010001000010101111111110"
3410 [143] object shape strings
3420 [131] "","onononon(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd*cmd+"
3430 [131] "on(NULL)stepcmdcmdcmdcmdpeekor^peekcmdcmdcmdcmdpeek/exppeek"
3440 [131] "ononon(NULL)cmd(NULL)cmdpeekcmdpeekcmdpeek","cmdcmd(NULL)"
3450 [131] "oncmdcmdcmdvalcmdcmdcmdsteptab((NULL)cmdcmdcmdwait(NULL)tab(waitstep"
3460 [131] "oncmdcmdcmd(NULL)(NULL)(NULL)fncmdcmdcmdcmdfnfnfnfncmdcmdcmdcmdfnfnfnfn","cmdatn"
3470 [131] "oncmdcmdascasccmdcmdwait(NULL)stepcmdcmdstep(NULL)"
3480 [143] monster types
3490 [131] 1,1,2,2,3,3,4,5,5,5,6,6,6,6,7,8
3500 [143] monster shape data
3510 [131] %,&,',(,),),",",/
3520 [131] %,&,',(,),),",",/
3530 [131] %,&,',(,"*+","*+","-.","01"
3540 [131] %,&,',(,"*+","*+","-.","2345"
3550 [143] sprite locations
3560 [131]a0bfa0958a6bba6ba0aaa081ac8dac97,x